home *** CD-ROM | disk | FTP | other *** search
/ START Magazine / START VOL 4 NO 10.st / info_src.arc / MOD_VAR.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-02-01  |  6.4 KB  |  175 lines
  1. {InfoBaseST by James W. Maki (c) Copyright 1990 by Antic Publishing, Inc.}
  2. {
  3. ****************************************************************************
  4. *                 ----------------------                                   *
  5. *  Data Store -- | D4 | Global Variables                                   *
  6. *                 ----------------------                                   *
  7. ****************************************************************************
  8.  
  9.                     *****    Number Of Record Variables    *****
  10. }
  11.      SortCount   : short_integer ;
  12.      OR_Search,
  13.      SortFlag    : boolean ;
  14.      WindNum     : short_integer ;
  15.      WindName    : array[1..MaxWind] of Window_Title ;
  16.      WindInfo    : array[1..MaxWind] of Window_Title ;
  17.      RecNo       : array[1..MaxWind] of short_integer ;
  18.      TotalRec    : array[1..MaxWind] of short_integer ;
  19.      TotScrRec   : short_integer ;
  20.      F_RecNo     : array[1..MaxWind] of short_integer ;
  21.      F_TotalRec  : array[1..MaxWind] of short_integer ;
  22.  
  23.      LabLine,
  24.      RepLine,
  25.      RepWidth    : short_integer ;
  26.      LabSpace    : array[1..2] of short_integer ;
  27.      PrtInit     : array[1..5] of Str20 ; 
  28.      PrtFlag     : array[1..5] of boolean ;
  29.      DecReal     : short_integer ;
  30.  
  31.      FormatStr,
  32.      AlertStr    : Str255 ;
  33.      Result      : short_integer ;
  34.  
  35.     { Memory Management Variables }
  36.      MaxMem,       { Maximum memory available, in bytes }
  37.      DataRecSize,  { Size of a Data Store Record, in bytes }
  38.      PtrRecSize,   { Size of a Data Pointer Record, in bytes }
  39.      ScrRecSize    { Size of a Screen Data Record, in bytes }
  40.                    : long_integer ;
  41.  
  42.     { True if current data base has been altered, otherwise false }
  43.      EditFlag    : array[1..MaxWind] of boolean ;
  44.      D_EditFlag  : array[1..MaxWind] of boolean ;
  45.      R_EditFlag  : boolean ;
  46.      R_LoadFlag  : boolean ;
  47.  
  48.     { True if Memory is full }
  49.      FullMemory  : boolean ;
  50.  
  51.     { Default PathName for Screen file operations }
  52.      DefPathScr : Path_Name ;
  53.  
  54.     { Default PathName for Data file operations }
  55.      DefPathDat : Path_Name ;
  56.      DefPathTxt : Path_Name ;
  57.      DefPathPrt : Path_Name ;
  58.  
  59.      HelpFileName : Path_Name ;
  60.  
  61.     { Default Filename for Screen file operations }
  62.      DefFileScr : Path_Name ;
  63.  
  64.     { Default Filename for Data file operations }
  65.      DefFileDat : Path_Name ;
  66.      DefFileTxt : Path_Name ;
  67.      DefFilePrt : Path_Name ;
  68. {
  69.                     *****    Global Control Variables    *****
  70. }
  71.     { Boolean flag to signal exit from the main control loop in the main
  72.       program procedure  }
  73.      ExitPrompt  : boolean ;
  74.  
  75.     { File designtor for output to Printer }
  76.      Printer     : text ;
  77.  
  78.     { File Designation for Data (D3) Storage Files  }
  79.      DataStorage : file of Str50 ;
  80.  
  81.     { File Designation for Screen Info (D1) Storage Files }
  82.      ScrnStore   : file of ScrInfo ;
  83.  
  84.     { Short Circuit Redraw routines to prevent 2X redraws }
  85.      ShortDraw   : boolean ;
  86.     { Call UpdateInfoLine if no other action going on, 
  87.       BUT only if Update needed }
  88.      UpdateFlag  : boolean ;
  89.  
  90.     { SearchFlag is used to distiguish between Search Set-Up and actual
  91.       Search Routine }
  92.      SearchFlag  : boolean ;
  93. {
  94. ****************************************************************************
  95. *                 -------------                                            *
  96. *  Data Store -- | D3 | Data                                               *
  97. *                 -------------                                            *
  98. ****************************************************************************
  99.   TYPE Declarations
  100.   ---- ------------
  101.     DataPtr  = ^DataInfo ;
  102.     DataInfo = record
  103. }
  104.     D_FirstRec   : array[1..MaxWind] of DataPtr ;
  105.     D_CurrentRec : array[1..MaxWind] of DataPtr ;
  106.     D_LastRec    : array[1..MaxWind] of DataPtr ;
  107.     D_OrderFirst : array[1..MaxWind] of DataPtr ;
  108.  
  109.     DelItem      : DataPtr ;
  110.     D_DataRec    : DataStorePtr ;
  111. {
  112. ****************************************************************************
  113. *                 ------------------                                       *
  114. *  Data Store -- | D2 | Screen                                             *
  115. *                 ------------------                                       *
  116. ****************************************************************************
  117.     Screen Variables to position Cursor during Design Phase and other
  118.     global variables required by the Draw_Mod and Res_Mod procedures.
  119. }
  120.      { Current X-Cursor Location : For Design Mode Cursor Position }
  121.     XCur,
  122.  
  123.      { Current Y-Cursor Location : For Design Mode Cursor Position }
  124.     YCur : short_integer ;
  125.  
  126.      { x and y are the coordinants of the top left corner of the current
  127.                Window
  128.        w and h are the width and height of the current window }
  129.     x, y, 
  130.     w, h : short_integer ;
  131.  
  132.      { Spacing is the number of pixels between lines on the screen }
  133.     Spacing : short_integer ;
  134.  
  135.     RW_Offset  : short_integer ;
  136.     PL_Offset  : short_integer ;
  137.  
  138.      { Resolution of the screen }
  139.     Resolution : short_integer ;
  140.  
  141.      { Menu Variables : used in the SetUpMenu Procedure in Res_Mod }
  142.     MenuItem   : GemMenu ;
  143.     InfoMenu   : Menu_Ptr ;
  144.     Mode       : short_integer ;
  145.     P_Mode     : short_integer ;
  146.  
  147. {
  148. ****************************************************************************
  149. *                 ------------------                                       *
  150. *  Data Store -- | D1 | Design Specs                                       *
  151. *                 ------------------                                       *
  152. ****************************************************************************
  153.   TYPE Declarations
  154.   ---- ------------
  155.     ScrPtr  = ^ScrInfo ;
  156.     ScrInfo = record
  157. }
  158.     S_FirstRec   : array[1..MaxWind] of ScrPtr ;
  159.     S_CurrentRec : array[1..MaxWind] of ScrPtr ;
  160.     S_LastRec    : array[1..MaxWind] of ScrPtr ;
  161.     
  162.    { C => Compare Records -- used in Database merge operations -- AND -- }
  163.    { C => Search Records -- used to track Search Criteria =, <, >, etc.  }
  164.    { C => Sort Records -- used to track Ascend or Descend  }
  165.     C_FirstRec : IntPtr ;
  166.     C_LastRec  : IntPtr ;
  167.     C_CurRec   : IntPtr ;
  168.  
  169.    { F=> Search Records -- used in Search and Sort operations }
  170.     F_FirstRec : IntPtr ;
  171.     F_LastRec  : IntPtr ;
  172.     F_CurRec   : IntPtr ;
  173.  
  174.     F_SaveRec  : IntPtr ;
  175.